---
title: "covid-19 India dashboard"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
vertical_layout: fill
---
```{r setup, include=FALSE}
library(flexdashboard)
library(jsonlite)
library(dplyr)
library(magrittr)
library(DT)
library(dygraphs)
library(tbl2xts)
library(lubridate)
```
```{r get_data}
url <- "https://pomber.github.io/covid19/timeseries.json"
covid19_data <- fromJSON(url)
```
```{r colors_set}
confirmed_color <- "purple"
active_color <- "#1f77b4"
recovered_color <- "forestgreen"
death_color <- "red"
```
```{r func_def}
total_confirmed <- function(data){
tail(data$confirmed, n = 1)
}
total_deaths <- function(data){
tail(data$deaths, n = 1)
}
total_recovered <- function(data){
tail(data$recovered, n = 1)
}
total_table <- function(data){
all <- c(total_confirmed(data), total_deaths(data), total_recovered(data))
table <- data.frame(all, row.names = c("Confirmed", "Deaths", "Recovered"))
names(table) <- "Total Numbers"
return(table)
}
```
Summary
=======================================================================
Row
-----------------------------------------------------------------------
### confirmed {.value-box}
```{r}
valueBox(value = total_confirmed(covid19_data$India),
caption = "Total Confirmed Cases",
icon = "fas fa-user-md",
color = confirmed_color)
```
### recovered {.value-box}
```{r}
valueBox(value = total_recovered(covid19_data$India),
caption = "Recovered Cases", icon = "fas fa-heartbeat",
color = recovered_color)
```
### death {.value-box}
```{r}
valueBox(value = total_deaths(covid19_data$India),
caption = "Death Cases",
icon = "fas fa-heart-broken",
color = death_color)
```
Row
-----------------------------------------------------------------------
```{r india}
#total_table(covid19_data$India) %>% DT::datatable()
t_data <- covid19_data$India %>%
select(date, confirmed, recovered, deaths) %>%
mutate(date = lubridate::date(date)) %>%
tbl_xts(.)
dygraph(data = log10(t_data), main = "Covid India data", ylab = "log10(Numbers)") %>%
dyRangeSelector() %>%
dyOptions(stackedGraph = TRUE,
colors = c(confirmed_color, recovered_color, death_color))
```